home *** CD-ROM | disk | FTP | other *** search
/ French Postcards Plus / 350a_French_Postcards.dsk / SINGLE SCENE.bas < prev    next >
BASIC Source File  |  2020-07-23  |  986b  |  35 lines
  1. 10 D$ =  CHR$(4)
  2. 15  PRINT D$;"BLOAD HIRES SCRUNCH"
  3. 20  HOME : TEXT 
  4. 30 A = 1
  5. 35  VTAB 8
  6. 40  PRINT "THIS IS A LITTLE VIEW OF WHAT THIS GAL  WHO IS ALL ALONE ON A SATURDAY NIGHT    HAS TO DO TO AMUSE HERSELF.  POOR KID.  DON'T YOU WISH YOU WERE THERE TO LEND A HAND?"
  7. 45  FOR G1 = 1 TO 5000: NEXT G1
  8. 50  PRINT D$;"BLOAD PIC.SINGLE1,A$7000": GOSUB 1000
  9. 54 B = 5
  10. 55 B = B *4
  11. 60  PRINT D$;"BLOAD PIC.SINGLE2,A$7000": GOSUB 1010
  12. 70  POKE  -16297,0
  13. 80  POKE  -16304,0
  14. 90  POKE  -16302,0
  15. 100  GOSUB 170
  16. 110  POKE  -16299,0
  17. 120 SW = 1
  18. 130  GOSUB 180
  19. 140  POKE  -16300,0
  20. 150 SW = 0
  21. 160  GOTO 100
  22. 170  REM 
  23. 180  REM 
  24. 190 TN = 75
  25. 200  IF SW = 1  THEN TN = 255
  26. 210  POKE 768,TN: POKE 769,L
  27. 220  CALL 770
  28. 240 A = A +1
  29. 250  IF A >B  THEN 300
  30. 260  RETURN 
  31. 300  HOME : PRINT D$;"RUN MENU"
  32. 1000  POKE 24582,0: POKE 24583,32: POKE 24584,255: POKE 24585,63: POKE 24587,112: CALL 24579
  33. 1001  RETURN 
  34. 1010  POKE 24582,0: POKE 24583,64: POKE 24584,255: POKE 24585,95: POKE 24587,112: CALL 24579
  35. 1011  RETURN